home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 19 / Night Owl (The Best of Shareware)(NOPV 19)(1996).ISO / 018a / calv1295.zip / CCSCRIPT.ZIP / CALVARY.QMO < prev    next >
Text File  |  1994-09-06  |  3KB  |  124 lines

  1. ;CAMMAIL Mail Transfer Script for Qmodem 4.5
  2. ;By Daryl Stogner, Boot Strap OnLine (602) 342-7127
  3. ;         UPLOADED BY BROTHER GREG MOORE
  4. ;Original MARKMAIL Script by
  5. ;Joseph Sheppard, The Ledge PCBoard (818) 352-3620 (HST)
  6.  
  7.  
  8.  
  9.   String   QWK REP FON LOGON CONF DOORCMD PROT
  10.  
  11. ;Edit your personal information in here:
  12.  
  13. ;                    ***********************
  14.   Assign   QWK       C:\CAM-MAIL\QWK\SHEPHERD.QWK  ; Name/Path of QWK file
  15.   Assign   REP       C:\CAM-MAIL\REP\SHEPHERD.REP  ; Name/Path of REP file
  16.   Assign   FON       "SHEPHERD"               ; Unique text in FON file
  17.   Assign   LOGON     "FIRST LAST PASSWORD"        ; Your Name and Password on BBS
  18.   Assign   CONF      "J 0"                     ; Join Conference Command
  19.   Assign   DOORCMD   "MAIL UDG"                ; Command to open QWK Door
  20.   Assign   PROT      Z                         ; Protocol to transfer with
  21. ;                    ************************
  22.  
  23.  
  24. ;seconds to wait before aborting (300 seconds = five minutes). Be sure
  25. ;to leave enough time for QWK and REP file transfers
  26.   Timeout 300 Halt
  27.  
  28.  
  29. ;Make sure modem is offhook and speaker is off (don't wake me up)
  30.   SEND "ATH0M1^M"
  31.  
  32. ;Open a capture file called MAIL.LOG so we can see what happened during
  33. ;transfer tomorrow morning
  34.   CAPTURE SHEPHERD.LOG
  35.  
  36.  
  37. ;When <first expression> happens do <second expression>
  38.   When "new mail?" "^M"
  39.   When "no change" "1^M"
  40.   When "More?" "n^M"  When "to continue?" "^M"
  41.   When "(Enter)=yes?" "^M"
  42.   When "(Enter)=English?" "^M"
  43.   When "(ENTER = NO)" "^M"
  44.   When "(Enter)=no?" "^M"
  45.   When "name? " "$LOGON^M"
  46.   When "no new messages were found!" NOMSG
  47.  
  48.  
  49. ;Call the host BBS
  50.   DIAL 'T$FON'
  51.  
  52. ;-----------------------------------------[ DOWNLOAD UNINEW.ZIP ]-------
  53.  
  54.  
  55. ;Open the CAMMAIL Door
  56.   Waitfor   "Command?"
  57.   Send      "$CONF^M"
  58.   Waitfor   "Command?"
  59.   Send      "$DOORCMD^M"
  60.  
  61.  
  62. ;first upload the .REP file, second Download the .QWK file, then logoff
  63.   GOSUB UPLOAD_REP
  64.   GOSUB DOW_MAIL
  65.   GOTO GOODBYE
  66.  
  67.  
  68. ;Forget about uploading if no .REP file exists
  69.   UPLOAD_REP:
  70.   exist $REP DO_UPLOAD
  71.   Return
  72.  
  73.  
  74. ;Upload the .REP file
  75.   DO_UPLOAD:
  76.   Waitfor   "Command? "
  77.   Send      "U^M"
  78.   Waitfor   ".REP"
  79.   Delay 1000
  80.   Upload $PROT $REP
  81.   Return
  82.  
  83.  
  84. ;Download the .QWK file
  85.   DOW_MAIL:
  86.   Waitfor   "Command? "
  87.   Send      "D;Y^M"
  88.   Waitfor   ".QWK"
  89.   Delay 1000
  90.   Download $PROT $QWK
  91.   Waitfor   "Command? "
  92.   Send      "G^M"
  93.   Return
  94.  
  95.  
  96. ;If No messages to download
  97.   NOMSG:
  98.   Send  "G^M"
  99.  
  100. ;Log-off host system
  101.   GOODBYE:
  102.   Waitfor   "NO CARRIER"
  103.  
  104. ;Take modem off the hook during duration of event
  105.   SEND "ATH1^M"
  106.  
  107. ;Turn-off capture of MAIL.LOG
  108.   TURNOFF CAPTURE
  109.  
  110. ;Go back to system and resume EVENT
  111.   SEND "ATZ^M"
  112.   SYSTEM Y
  113.   Exit
  114.  
  115.  
  116. ;Stop everything and quit for the night if a time-out occured
  117.   Halt:
  118.   Note      Unsuccessful Attempt.
  119.   Note      Script Halted
  120.   TURNOFF CAPTURE
  121.   SEND "ATZ^M"
  122.   SYSTEM Y
  123.   Exit
  124.